home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / TUNES DEMO 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  35 lines
  1. 10  REM  *************************
  2. 11  REM  *   T.U.N.E.S  DEMO 1   *
  3. 12  REM  * BY S. SCOTT ZIMMERMAM *
  4. 13  REM  *  COPYRIGHT (C)  1983  *
  5. 14  REM  *  BY MICROSPARC, INC.  *
  6. 15  REM  *  LINCOLN, MA.  01773  *
  7. 16  REM  *************************
  8. 120  IF  PEEK(37403) = 169  AND  PEEK(38385) = 0  AND  PEEK(1014) = 84  AND  PEEK(1015) = 146  THEN 160: REM  CHECK IF 'TUNES' IS THERE AND INITIALIZED
  9. 140  PRINT  CHR$(4);"BRUN TUNES"
  10. 160  TEXT : HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  11. 180  VTAB 6:A$ = "MUSETTA'S WALTZ SONG": HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL : PRINT :A$ = "FROM 'LA BOHEME' BY PUCCINI": HTAB (41 - LEN(A$))/2: PRINT A$
  12. 200  PRINT : PRINT :A$ = "PROGRAMMED BY": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "S. SCOTT ZIMMERMAN": PRINT : HTAB (41 - LEN(A$))/2: PRINT A$
  13. 220  PRINT : PRINT :A$ = "WITH": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "T.U.N.E.S.": PRINT : HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL 
  14. 240  PRINT :A$ = "TONE UTILITY AND NOTE ENCODING SYSTEM": HTAB (41 - LEN(A$))/2: PRINT A$
  15. 260 X = 150: VTAB 23: CALL  -868: PRINT "WHAT TEMPO (IN BEATS/MIN)? ";X;: POKE 36,( PEEK(36) -3): INPUT "";X$: VTAB 23: HTAB 1: CALL  -868
  16. 280  IF X$ = ""  THEN 380
  17. 300 X =  VAL(X$)
  18. 320  IF X >255  THEN X = 255
  19. 340  IF X <61  THEN X = 61
  20. 360  REM   NOTES TO "MUSETTA'S WALTZ SONG"INTRODUTION:
  21. 380  & X: & RE4TX: & B: & D: & G: & F#S': & G: & F#: & DE: & B: & G3: REM MEASURE 1
  22. 400  & F#T: & G: & F#S: & EES: & G: & D: & G#: & C#: & AE4L: & R: & RH: & AES: & R: & RQ: & AE: & R: & RQ: & AE: & R: & RQ: REM END OF MEASURE 4
  23. 420  REM  START 3/4 TIME SECTION:
  24. 440  & DH4LT(X -50): & DS3: & F#: & A4: & D: & C#H: & DS3: & F#: & A4: & C#: & BH.HEP: & BEL: & C#ET(X -60): & ET: & DET(X -75): & C#: & B: & DET(X -50): & G3: & GQS: & GQLHE
  25. 460  & AE4P: & BET(X -60): & DTL: & C#EPT(X -75): & B: & A: REM  END OF FIGURE 1
  26. 470  & XTLT(X -50): & A: & C#E: & F#3: & F#QS: & F#QLHE
  27. 480  & AE3: & B: & D: & F#: & A4: & DH: & DS3: & F#: & A4: & D: & C#H
  28. 500  & DS3: & F#: & A4: & C#: & BH.HE: & BE: & C#: & ET: & DE: & C#: & B: & AS'T(X -70): & B: & AE5T(X -100): & F#E4T(X -70): & E: & D:: & B: & F#E3HET(X -50): & AE4: & AQ: & EE3S: & F#: & XEL: & D: & R: & D: & REHQHH.
  29. 520  REM    END OF MUZETTA'S WALTZ SONG
  30. 540  VTAB 23: CALL  -868: PRINT "DO YOU WANT TO HEAR IT AGAIN? (Y/N)"
  31. 560  VTAB 23: HTAB 37: INVERSE : PRINT " ";: & CT5ST255: & RW: HTAB 37: NORMAL : PRINT " ": IF  PEEK( -16384) <128  THEN  & GT4: & RW: IF  PEEK( -16384) <128  THEN 560
  32. 580 X =  PEEK( -16384): POKE  -16368,0
  33. 600  IF X = 217  THEN 260
  34. 620  IF X = 206  THEN  END 
  35. 640  GOTO 560